Celestin Apprentice 4/Apprentice-Release4.iso/Source Code/C/Applications/MacPerl 5.0.3/MacPerl Source ƒ/Perl5/h2pl/tcbreak

Text File | 1994-12-26 | 179 b | 18 lines | [TEXT/MPS ]

#!/usr/bin/perl

require 'cbreak.pl';

&cbreak;

$| = 1;

print "gimme a char: ";

$c = getc;

print "$c\n";

printf "you gave me `%s', which is 0x%02x\n", $c, ord($c);

&cooked;